Top 10k strings from Plot (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 540 p_valmis
   1 530 PRINT#0,"p_reset restores the TV-state"
   1 520 AT#0,2,0:INK#0,4
   1 510 REMark ending it
   1 490 END FOR x
   1 480  w1=w:z1=z:flag=1
   1 470  IF flag THEN LINE w1,z1 TO w,z
   1 460  z=a2+sk2*y
   1 450  y=fny(x)
   1 440  w=a1+sk1*x
   1 430 FOR x=x1 TO x2 STEP p
   1 420 flag=0
   1 410 REMark ** drawing the function **
   1 390 FOR j=a2 TO 0 STEP -sk2:POINT a1,j
   1 380 FOR j=a2 TO 100 STEP sk2:POINT a1,j
   1 370 FOR i=a1 TO 0 STEP -sk1:POINT i,a2
   1 360 FOR i=a1 TO 165 STEP sk1:POINT i,a2
   1 350 REMark ** axes **
   1 330 p=.5:REMark point density
   1 320 x1=-15:x2=15:REMark area
   1 31110 END DEFine p_reset
   1 31100  SCALE 100,0,0:FILL 0
   1 31090  PAPER#2,1:INK#2,7
   1 31080  PAPER#1,2:INK#1,7:CLS#1
   1 31070  PAPER#0,0:INK#0,7
   1 31060  WINDOW#2,448,200,32,16
   1 31050  WINDOW#1,448,200,32,16
   1 31040  WINDOW#0,448,40,32,216
   1 31030  PAPER 0:CLS
   1 31020  WINDOW 513,256,0,0
   1 31010  MODE 8
   1 31000 DEFine PROCedure p_reset
   1 310 a1=82:a2=50:REMark origin
   1 30120 STOP
   1 30100 END DEFine p_valmis
   1 30090  PAPER#0,0:INK#0,7
   1 30080  PRINT#0,!s!"sec"
   1 30070  IF m>0 THEN PRINT#0,!m!"min";
   1 30060  IF t>0 THEN PRINT#0,!t!"h";
   1 30050  m=INT(s/60):s=s-60*m
   1 30040  t=INT(s/3600):s=s-t*3600
   1 30030  s=DATE-aika
   1 30020  PRINT#0,"READY, elapsed";
   1 30010  LOCal t,m,s:INK#0,4:AT#0,1,0
   1 30000 DEFine PROCedure p_valmis
   1 300 sk1=5:sk2=5:REMark scaling
   1 290 REMark ** defaults **
   1 270 END DEFine fny
   1 260  RETurn y
   1 250  y=SIN(x)
   1 240  LOCal y
   1 230 DEFine FuNction fny(x)
   1 220 aika=DATE:p_wind:PAPER#0,1:CLS#0
   1 20120 END DEFine p_logo
   1 20110  AT 19,0:INPUT "TO CONTINUE: PRESS ENTER?"!v$
   1 20100  PRINT tpvm$
   1 20090  CURSOR 222-6*LEN(tpvm$),90
   1 20080  PRINT ohj$:CSIZE 2,0
   1 20070  CURSOR 224-8*LEN(ohj$),110
   1 20060  PRINT "Timo Salmi"
   1 20050  CSIZE 3,1:CURSOR 224-8*10,70
   1 20010  LOCal v$
   1 20000 DEFine PROCedure p_logo(ohj$,tpvm$)
   1 200 p_valmis:STOP
   1 190 PRINT"330 p=.5          point density"
   1 180 PRINT"320 x1=-15:x2=15  area"
   1 17050 END DEFine p_wind
   1 17040  PAPER 0:INK 7:CLS:FILL 0
   1 17030  WINDOW 448,200,32,16
   1 17020  WINDOW 512,256,0,0:PAPER 1:CLS
   1 17010  MODE 256
   1 17000 DEFine PROCedure p_wind
   1 170 PRINT"310 a1=82:a2=50   origin"
   1 160 PRINT"300 sk1=5:sk2=5   scaling"
   1 150 PRINT\"YOU MAY ALSO CHANGE THE DEFAULTS:"
   1 140 PRINT"TYPE: RUN 220"
   1 130 PRINT\"TYPE: 250 y = function";"(x)"
   1 110 p_logo "PLOT a function","22.04.87"
   1 100 CLEAR:aika=DATE:p_wind